TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/I-Info Magazine/(c)i21.d64/kismet64

Commodore BASIC | 2007-02-04 | 14KB | 409 lines

0 REM    **************
1 REM   ***--KISMET--***                       **--CREATED BY--**
2 REM **--MARK  HANSON--**                     ******************
3 POKE53280,7:POKE53281,7:PRINT"[147]"
4 PRINT"KKIIISSSSMMMMEEEETTTTTTT"
5 PRINT"KKISMMMMET"
6 PRINT"KKKISMMMEEET"
7 PRINT"KKISSMMEEET"
8 PRINT"KKISMMET"
9 PRINT"KKIIISSSSMMEEEET":POKE54295,0:POKE54296,10:GOSUB8000
10 REM **--INITIALIZE--**
11 SC=0:POKE53280,5:POKE53281,6
12 PRINT"[147]":PRINTSPC(6)"HOW MANY PLAYERS (1-4)"
13 GETN$:IFN$="1"THENN=1:GOSUB7080:GOSUB40:GOTO25
14 IFN$="2"ORN$="3"ORN$="4"THENN=VAL(N$):GOSUB7080:GOSUB40:GOTO20
16 GOTO13
20 PRINT"[147]MAY I HAVE YOUR":PRINT"NAMES PLEASE"
21 FORA=1TON:PRINT"PLAYER"A:INPUTNM$(A):GOSUB7080:NEXTA:GOTO26
23 IFN$<>"2"THEN22
25 PRINT"[147]MAY I HAVE YOUR":INPUT"NAME PLEASE";NM$(1):GOSUB7080
26 PRINT"[147]DO YOU KNOW":PRINT"HOW TO PLAY?"
27 GETT$:IFT$="N"THENGOSUB9000:GOTO30
28 IFT$<>"Y"THEN27
29 GOSUB7080
30 PRINT"[147]O.K. ":PRINT"LET'S PLAY KISMET":N=1
31 FORT=1TO1500:NEXT:GOTO100
40 FORT=1TON:FORL=1TO6:BS$(T,L)=" [175][175]":NEXTL
41 FORL=1TO9:KS$(T,L)=" [175][175]":NEXTL:NEXTT:RETURN
100 REM **-ROLL DICE-**
101 X=1:RC=0
105 PRINT"[147]":RC=RC+1:GOSUB1000:GOSUB990
120 FORZ=1TO5
130 FORT=XTO5:DC(T)=INT(1+6*RND(1)):DK(T)=DC(T):NEXT
135 FORT=1TO5:DK$(T)=STR$(DK(T)):NEXT
148 T=1:GOSUB710:PRINT""SPC(21)RIGHT$(DK$(1),1):IFX<2THENGOSUB5000
149 T=2:GOSUB710:PRINT""SPC(24)RIGHT$(DK$(2),1):IFX<3THENGOSUB5000
150 T=3:GOSUB710:PRINT""SPC(27)RIGHT$(DK$(3),1):IFX<4THENGOSUB5000
151 T=4:GOSUB710:PRINT""SPC(30)RIGHT$(DK$(4),1):IFX<5THENGOSUB5000
152 T=5:GOSUB710:PRINT""SPC(33)RIGHT$(DK$(5),1)"[154]":GOSUB5000
159 NEXTZ:GOSUB990
190 IFRC=3THEN230
200 REM **--KEEP/CHANGE DICE--**
202 X=1:L=1:PRINT"KEEP DIE #1?"
203 GETT$:IFT$="Y"THENX=X+1:L=L+1:GOTO205
204 IFT$<>"N"THEN203
205 GOSUB7080:PRINT"KEEP DIE #2?"
206 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(2):L=L+1:GOTO208
207 IFT$<>"N"THEN206
208 GOSUB7080:PRINT"KEEP DIE #3?"
209 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(3):L=L+1:GOTO211
210 IFT$<>"N"THEN209
211 GOSUB7080:PRINT"KEEP DIE #4?"
212 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(4):L=L+1:GOTO214
213 IFT$<>"N"THEN212
214 GOSUB7080:PRINT"KEEP DIE #5?"
215 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(5):L=L+1:GOTO220
216 IFT$<>"N"THEN215
220 GOSUB7080:IFX<6ANDRC<3THEN105
230 REM **--WHERE--**
251 B=0:FORT=2TO5:IFDK(1)<>DK(T)THENB=1
252 NEXTT:IFB=0ANDVAL(KS$(N,9))>0THENGOSUB520
254 PRINT"[147]":GOSUB1000:FORT=1TO6:A(T)=0:NEXT
255 T=1:GOSUB710:PRINT""SPC(20)DK(1)
256 T=2:GOSUB710:PRINT""SPC(23)DK(2)
257 T=3:GOSUB710:PRINT""SPC(26)DK(3)
258 T=4:GOSUB710:PRINT""SPC(29)DK(4)
259 T=5:GOSUB710:PRINT""SPC(32)DK(5)"[154]"
260 GOSUB990
261 PRINT"WHERE"
265 INPUT"(1-15)[145][157]";L$:L=VAL(L$)
266 IFLEFT$(L$,1)="Q"THEN500
267 IFL<1ORL>15THENGOSUB7000:GOTO254
268 IFL>6THEN280
270 REM *-CHECK BASIC SECT-*
275 IFBS$(N,L)<>" [175][175]"THENPRINT"NOT THERE!":GOSUB7000:GOTO254
276 FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT
277 BS$(N,L)=STR$(A(L)):GOTO400
280 REM *-CHECK KISMET SECT-*
281 L=L-6:IFKS$(N,L)<>" [175][175]"THENPRINT"NOT THERE!":GOSUB7000:GOTO254
282 ONLGOSUB 285,300,310,320,330,340,350,360,365
283 GOTO 400
285 REM *-CHECK FOR 2 PAIR-*
286 A=1
287 B=0:FORT=1TO5:IFDK(T)=ATHENB=B+1
288 NEXTT:IFB<4THENA=A+1:IFA<7THEN287
289 IFA>6THEN291
290 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,1)=STR$(B):RETURN
291 A=0:FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT
292 IFA(1)>1ANDA(6)>6THENA=1
293 IFA(2)>2ANDA(5)>5THENA=1
294 IFA(3)>3ANDA(4)>4THENA=1
295 IFA=0THENKS$(N,1)="0":RETURN
296 A=0:FORT=1TO5:A=A+DK(T):NEXT:KS$(N,1)=STR$(A):RETURN
300 REM *-CHECK FOR 3 OF KIND-*
301 A=1
302 B=0:FORT=1TO5:IFDK(T)=ATHENB=B+1
303 NEXTT:IFB<3THENA=A+1:IFA<7THEN302
304 IFA>6THENKS$(N,2)="0":RETURN
305 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,2)=STR$(B):RETURN
310 REM *-CHECK FOR STRAIGHT-*
311 FORT=1TO5:B=DK(T):A(B)=B:NEXT
312 A=0:FORT=1TO6:A=A+A(T):NEXT
313 IFA=15ORA=20THENKS$(N,3)="30":RETURN
314 KS$(N,3)="0":RETURN
320 REM *-CHECK FOR FLUSH-*
321 FORT=1TO5:B=DK(T):A(B)=B:NEXT
322 B=0:FORT=1TO6:IFA(T)=TTHENB=B+1
323 NEXTT:IFB>2THENKS$(N,4)="0":RETURN
324 IFB=1THENKS$(N,4)="35":RETURN
325 IFA(1)+A(6)=7ORA(2)+A(5)=7ORA(3)+A(4)=7THENB=0
326 IFB=0THENKS$(N,4)="35":RETURN
327 KS$(N,4)="0":RETURN
330 REM *-CHECK FOR FULL HOUSE-*
331 FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT
332 B=0:FORT=1TO6:IFA(T)=0THENB=B+1
333 NEXTT:IFB<4THENKS$(N,5)="0":RETURN
334 IFB=5THEN337
335 B=0:FORT=1TO6:IFA(T)>TTHENB=B+1
336 NEXTT:IFB<2THENKS$(N,5)="0":RETURN
337 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,5)=STR$(B+15):RETURN
340 REM *-CHECK FOR FULL HOUSE SC-*
341 B=0:FORT=1TO5:IFDK(1)<>DK(T)THENB=1
342 NEXTT:IFB=0THENFORT=1TO5:B=B+DK(T):KS$(N,6)=STR$(B+20):RETURN
343 A=1:FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT
344 IFA(1)+A(6)=15ORA(1)+A(6)=20THENA=0
345 IFA(2)+A(5)=16ORA(2)+A(5)=19THENA=0
346 IFA(3)+A(4)=17ORA(3)+A(4)=18THENA=0
347 IFA=1THENKS$(N,6)="0":RETURN
348 FORT=1TO5:A=A+DK(T):NEXT:KS$(N,6)=STR$(A+20):RETURN
350 REM *-CHECK FOR 4 OF KIND-*
351 A=1
352 B=0:FORT=1TO5:IFDK(T)=ATHENB=B+1
353 NEXTT:IFB<4THENA=A+1:IFA<7THEN352
354 IFA>6THENKS$(N,7)="0":RETURN
355 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,7)=STR$(B+25):RETURN
360 REM *-YARBOROUGH-*
361 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,8)=STR$(B):RETURN
365 REM *-CHECK FOR KISMET-*
366 B=0:FORT=2TO5:IFDK(1)<>DK(T)THENB=1
367 NEXTT:IFB=0THENFORT=1TO5:B=B+DK(T):NEXT:KS$(N,9)=STR$(B+50):RETURN
368 KS$(N,9)="0":RETURN
400 REM **-BASIC/KISMET TOTALS-**
404 GOSUB7080:GOSUB406:IFRC<4THEN N=N+1:IFN>VAL(N$)THENN=1
405 GOTO100
406 SB(N)=0:FORT=1TO6:SB(N)=SB(N)+VAL(BS$(N,T)):NEXT
407 BB(N)=0:IFSB(N)>62THENBB(N)=35
408 IFSB(N)>70THENBB(N)=55
409 IFSB(N)>78THENBB(N)=75
410 BT(N)=SB(N)+BB(N)
415 REM *-KISMET TOTAL-*
416 KT(N)=0:FORT=1TO9:KT(N)=KT(N)+VAL(KS$(N,T)):NEXT
417 GT(N)=BT(N)+KT(N)
418 GOSUB1000:FORT=1TO5000:NEXT
419 IFN=VAL(N$)THENSC=SC+1:IFSC=15THEN2000
420 RETURN
500 REM *-QUIT ROUTINE-*
502 IFRIGHT$(N$,1)="1"THEN2000
504 A=VAL(N$):A=A-1:N$=STR$(A):IFN=(VAL(N$)+1)THENN=1:GOTO100
505 A=N:FORT=ATO4:NM$(T)=NM$(T+1)
506 FORL=1TO6:BS$(T,L)=BS$(T+1,L):NEXTL
507 FORL=1TO9:KS$(T,L)=KS$(T+1,L):NEXTL
508 NEXTT:GOSUB406:GOTO100
520 REM *-SECOND KISMET-*
521 FORT=1TO4:IFT=NTHENT=T+1
525 B=0:FORL=1TO6:IFB=0ANDBS$(T,L)=" [175][175]"THENBS$(T,L)="0":B=1
526 NEXTL:FORL=1TO9:IFB=0ANDKS$(T,L)=" [175][175]"THENKS$(T,L)="0":B=1
527 NEXTL:NEXTT:RC=4:RETURN
700 REM *-DICE COLOUR-*
710 IFDK(T)=1ORDK(T)=6THENPRINT"[144]":RETURN
711 IFDK(T)=2ORDK(T)=5THENPRINT"":RETURN
712 IFDK(T)=3ORDK(T)=4THENPRINT"":RETURN
990 REM *-DRAW DICE-*
991 PRINT""SPC(21)"1  2  3  4  5"
992 PRINTSPC(20)"[213][192][201][213][192][201][213][192][201][213][192][201][213][192][201]"
993 PRINTSPC(20)"[221][221][221][221][221][221][221][221][221][221]"
994 PRINTSPC(20)"[202][192][203][202][192][203][202][192][203][202][192][203][202][192][203]"
995 RETURN
1000 REM **-SCORE SHEET-**
1001 T=LEN(NM$(N)):L=19-(T/2):PRINT"[147]"SPC(L)NM$(N)
1010 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185]BASIC SECTION[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
1011 PRINT"(1)[154]ACES ="RIGHT$(BS$(N,1),2)
1012 PRINT""SPC(13)"(2)[154]DEUCES="RIGHT$(BS$(N,2),2)
1013 PRINT""SPC(27)"(3)[154]TREYS="RIGHT$(BS$(N,3),2)
1014 PRINT:PRINT"(4)[154]FOURS="RIGHT$(BS$(N,4),2)
1015 PRINT""SPC(13)"(5)[154]FIVES ="RIGHT$(BS$(N,5),2)
1016 PRINT""SPC(27)"(6)[154]SIXES="RIGHT$(BS$(N,6),2)
1020 PRINT"SUB-[157][157][157][157]TOTAL"SB(N)
1021 PRINT""SPC(12)"+BONUS"BB(N)
1022 PRINT""SPC(25)"=TOTAL"BT(N)
1025 PRINT"[185][185][185][185][185][185][185][185][185][185][185]KISMET SECTION[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
1026 PRINT"(7) [154]2 PAIR(SC)= "RIGHT$(KS$(N,1),2)
1027 PRINT""SPC(19)"(8) [154]3 OF KIND  =  "RIGHT$(KS$(N,2),2)
1028 PRINT"(9) [154]STRAIGHT  = "RIGHT$(KS$(N,3),2)
1029 PRINT""SPC(19)"(10)[154]FLUSH(SC)  =  "RIGHT$(KS$(N,4),2)
1030 PRINT"(11)[154]FULL HOUSE= "RIGHT$(KS$(N,5),2)
1031 PRINT""SPC(19)"(12)[154]FULL HOUSE(SC)"RIGHT$(KS$(N,6),2)
1032 PRINT"(13)[154]4 OF KIND = "RIGHT$(KS$(N,7),2)
1033 PRINT""SPC(19)"(14)[154]YARBOROUGH  = "RIGHT$(KS$(N,8),2)
1034 PRINT""SPC(13)"(15)[154]KISMET="RIGHT$(KS$(N,9),2)
1035 PRINT"************"SPC(15)"*************"
1036 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1040 PRINT"[158]SUB-[157][157][157][157]TOTAL"KT(N)
1041 PRINT""SPC(15)"BASIC[157][157][157][157][157][157]+SECT."BT(N)
1042 PRINT""SPC(28)"GRAND"
1043 PRINT""SPC(27)"=TOTAL"GT(N)
1044 PRINT"****************************************"
1045 RETURN
1092 PRINT"[147]GOOD FOR YOU[157][157][157][157][157][157][157][157][157][157][157][157]"
1093 GOSUB8000
1996 CLR:GOTO2
2000 PRINT"[147]THE GAME IS OVER!!!"
2001 FORT=1TO2000:NEXT
2002 PRINT"[147]THE SCORES"
2003 FORT=1TO1500:NEXT
2004 PRINT"[147]FOR THE GAME ARE"
2006 FORT=1TO3000:NEXT
2007 POKE53280,15:POKE53281,6:PRINT"[147]"
2008 GT=GT(1):NM$=NM$(1):FORT=2TO4
2009 IFGT(T)>GTTHENGT=GT(T):NM$=NM$(T)
2010 NEXTT
2020 PRINT"[154]"SPC(9)"THE WINNING TOTAL IS":PRINTSPC(17)""GT
2021 FORT=1TOVAL(N$):PRINT""NM$(T)"="GT(T):NEXT
2022 GOSUB6070:FORT=1TO2000:NEXT:GOTO5080
5000 REM SOUND FOR DICE ROLL
5002 F=600:AT=0:DC=4:T=0
5010 FF=16*F:POKE54273,FF/265:POKE54272,(FF-32768)AND255
5020 POKE54278,0
5030 POKE54277,16*AT+DC
5040 POKE54276,17
5050 FORCO=1TOT
5060 NEXTCO
5070 POKE54276,0:RETURN
5080 REM *-ASK TO PLAY AGAIN-*
5081 PRINT"[147]";SPC(10)"ANYONE WANT TO PLAY?"
5082 GETT$:IFT$="Y"THEN1092
5083 IFT$<>"N"THEN5082
5084 PRINT"[147]";SPC(16)"WELL,[157][157][157][157][157][157]GOODBYE!"
5085 GOSUB6000
5086 SYS64759
6000 REM SOUND FOR RASPBERRY
6010 VV=54272:POKEVV+6,240
6015 POKEVV+1,4:POKEVV+5,0:POKEVV+4,33
6020 FORNN=1024TO512STEP-8
6025 POKEVV+1,NN/256:POKEVV,NNAND255
6030 NEXT NN
6035 POKEVV+4,0:RETURN
6040 REM SOUND FOR PIP
6045 VV=54272
6050 POKEVV+6,0:POKEVV+5,31
6055 POKEVV+1,180:POKEVV+4,33
6060 FORN=1TO100:NEXT
6065 POKEVV+4,0:RETURN
6070 REM SOUND FOR EXPLOSION
6075 VV=54272:POKEVV+6,0:POKEVV+5,12
6080 POKEVV+1,20:POKEVV+4,129
6085 FORNN=1TO2500:NEXTNN
6090 POKEVV+4,0:RETURN
7000 REM SOUND FOR BUZZ
7001 F=15:SU=5:AT=0:T=200:PS=33:DC=15
7010 FF=16*F:POKE54273,FF/60:POKE54272,(FF-32768)AND255
7020 POKE54278,0
7030 POKE54277,16*AT+DC
7040 POKE54276,PS
7050 FORCO=1TOT
7060 NEXTCO
7070 POKE54276,0:RETURN
7080 REM SOUND FOR BEEP
7090 F=310:SU=50:AT=0:T=100:PS=17:DC=15
7095 FF=16*F:POKE54273,FF/100:POKE54272,(FF-20)AND255:GOTO7020
8000 REM SOUND FOR BUGLE
8005 RESTORE
8010 VV=54272
8020 POKEVV+6,0:POKEVV+5,45
8030 POKEVV+3,99:QP=2500
8040 READWW:IFWW=0THENPOKE54276,0:RETURN
8050 RR=INT(WW/10):QQ=(WW-10*RR)*QP
8055 POKE54273,QQ/256:POKE54272,QQAND255
8060 POKE54276,0:POKE54276,65:FORNN=1TO70*(RR+1):NEXT
8070 GOTO8040
8080 DATA25,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,64,3,3,5,4,4,5,3,3,5,4,5,6
8090 DATA15,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,94,0
9000 REM **--HOW TO PLAY--**
9001 PRINT"[147]HOW TO PLAY[157][157][157][157][157][157][157][157][157][157][157][184][184][184][184][184][184][184][184][184][184][184][154]"
9002 PRINT"THE EQUIPMENT IS 5 TRI-COLORED DICE * 1"
9003 PRINT"AUTOMATIC SHAKER (THE COMPUTER) * 1-4"
9004 PRINT"SCORE SHEETS (THE SCREEN).
9011 [153]"THE OBJECT OF THE GAME IS TO ROLL ANY  "
9012 [153]"OR ALL OF THE DICE ONE,TWO OR THREE    "
9013 [153]"TIMES ATTEMPTING TO OBTAIN DICE COMBI- "
9014 [153]"NATIONS FITTING A SCORING CATEGORY.    "
9015 [153]"THERE ARE 15 SCORING CATEGORIES AND ADD"
9016 [153]"BONUSES FOR A TOTAL SCORE.":[153][166]17)"CLRRULESCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRCONT"
9017 [153]"EACH PLAYER IS ALLOWED 1,2 OR 3 ROLLS"
9018 [153]"OF ANY OR ALL OF THE DICE. SCORING"
9019 [153]"BOXES MAY BE FILLED IN ANY ORDER. ONCE"
9020 [153]"ENTERRED A SCORE CAN NOT BE CHANGED."
9021 [153]"AFTER THE FIRST OR SECOND ROLL OF THE"
9022 [153]"DICE, A PLAYER WILL BE ASKED IF HE/SHE"
9023 [153]"WANTS TO KEEP EACH DIE. AFTER THE THIRD"
9024 [153]"ROLL THE WORD 'CLRWHERECONT' WILL APPPEAR. NOW"
9056 [153]"LOOK AT THE SCORE SHEET."
9057 [153]"TO CONTINUE HIT SPACE BARCONT"
9058 [161]RP$:[139]RP$[179][177]" "[167]9058
9060 [153]"LOADFIRST,THE LETTERS 'SCCONT' STANDS FOR SAME "
9061 [153]"COLOR.AND THE NUMBERS PRECEEDING EACH"
9062 [153]"SCORING AREA IS WHAT YOU TYPE IN AFTER"
9063 [153]"THE 'CLRWHERECONT'. THE SCORING FOR THE BASIC"
9066 [153]"SECTION IS AS FOLLOWS:":[153]:[153]"BASIC SECT.CONT":[153]
9067 [153]"THIS SECTION SCORES POINTS FOR ONE'S"
9068 [153]"THRU SIX'S.   CLREXAMPLE:"
9069 [153]"AFTER THE THIRD ROLL YOU MIGHT HAVE"
9070 [153]"4 4 4 STOP1 5":[153]"CLRSCORE 12 IN THE 4'S"
9071 [153]"CLROR SCORE 1 IN THE ACE'S":[153]"CLROR SCORE 5 IN THE 5'SCONT"
9072 [153]:[153]"PLAY IS SIMILAR FOR EACH AREA HERE"
9073 [153]"TO CONTINUE HIT SPACE BARCONT"
9074 [161]RP$:[139]RP$[179][177]" "[167]9074
9075 [153]"LOAD"[166]12)"KISMET SECT.CONT"
9076 [153]"THIS SECT. OFFERS VARYING VALUES FOR"
9077 [153]"DICE COMBINATIONS.":[153]"POINTS ARE AS FOLLOWS:":[153]
9078 [153]"2 PAIR(SC)CONT...ANY 2 PAIRS OF THE SAME   "
9080 [153]" COLOR. SCORE TOTAL OF ALL 5 DICE.    "
9081 [153]"3 OF A KINDCONT...AT LEAST 3 OF A LIKE   "
9082 [153]" NUMBER. SCORE TOTAL OF ALL 5 DICE.    "
9083 [153]"STRAIGHTCONT...1-2-3-4-5 OR 2-3-4-5-6.   "
9084 [153]" THE COMPUTER SCORES 30 PTS. AUTOMATIC."
9085 [153]"FLUSHCONT...FIVE DICE OF THE SAME COLOR. "
9086 [153]" THE COMPUTER SCORES 35 PTS. AUTOMATIC."
9087 [153]"FULL HOUSECONT...3 OF ONE NUMBER AND A   "
9088 [153]" PAIR. SCORE TOTAL OF ALL 5 DICE AND   "
9089 [153]" THE COMPUTER ADDS 15 PTS. AUTOMATIC.  "
9090 [153]"FULL HOUSE(SC)CONT...3 OF ONE NUMBER AND A "
9091 [153]" PAIR OF THE SAME COLOR. SCORE TOTAL OF"
9092 [153]" ALL DICE AND THE COMPUTER ADDS 20 PTS."
9093 [153]" AUTOMATIC."
9094 [153]"TO CONTINUE HIT SPACE BARCONT"
9095 [161]RP$:[139]RP$[179][177]" "[167]9095
9096 [153]"LOADKISMET SECT. (CONT)"
9098 [153]"4 OF A KINDCONT...FOUR OF A LIKE NUMBER.  "
9099 [153]" SCORE TOTAL OF ALL 5 DICE AND THE     "
9100 [153]" COMPUTER ADDS 25 PTS. AUTOMATIC.      "
9101 [153]"YARBOROUGHCONT...MEANS CHANCE. IF AFTER 3"
9102 [153]" ROLLS YOU HAVE NO SCORING COMBINATIONS"
9103 [153]" YOU MAY USE THIS. SCORE TOTAL OF ALL  "
9104 [153]" FIVE DICE.
9105 PRINT"KISMET[154]...FIVE OF A LIKE NUMBER. SCORE"
9106 PRINT" TOTAL OF ALL DICE AND THE COMPUTER    "
9107 PRINT" ADDS 50 PTS. AUTOMATIC."
9108 PRINT"AFTER THE '[156]WHERE[154]' APPEARS,YOU MUST TYPE"
9109 PRINT"THE NUMBER THAT PRECEEDS EACH AREA."
9110 PRINT"THEN '[156]RETURN[154]'. IF YOU CAN'T MAKE A"
9111 PRINT"SCORING AREA, THEN TYPE THE NUMBER OF"
9112 PRINT"AN AREA AND A '0' WILL BE PLACED THERE."
9113 PRINT"TO CONTINUE HIT SPACE BAR[154]"
9114 GETRP$:IFRP$<>" "THEN9114
9115 PRINT"[147]"SPC(12)"SCORING OPTIONS":PRINTSPC(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
9116 PRINT"[156]EXAMPLE:  SAY YOU ROLL 4 4 4 4 5"
9117 PRINT"[156]POSSIBLE SCORING OPTIONS ARE...":PRINT"A SCORE OF 16 IN THE 4'S"
9118 PRINT"[156]A SCORE OF 5 IN THE 5'S":PRINT"[156]A SCORE OF 19 IN THE 2 PAIRS(SC)"
9119 PRINT"[156]A SCORE OF 19 IN THE 3 OF A KIND"
9120 PRINT"[156]A SCORE 44 IN THE 4 OF A KIND"
9121 PRINT"[156]OR A SCORE OF 19 IN THE YARBOROUGH[154]"
9122 PRINT"AT THE END OF EACH PLAYERS TURN HIS/HER"
9123 PRINT"SCORE SHEET WILL APPEAR FOR A FEW"
9124 PRINT"SECONDS. THEN, IT WILL BE THE NEXT "
9125 PRINT"PLAYERS TURN. PLAY WILL CONTINUE ON"
9126 PRINT"THE SAME, UNLESS, A PLAYER ROLLS A"
9127 PRINT"SECOND KISMET OR QUITS. BONUSSES ARE"
9128 PRINT"ADDED ON AUTOMATICALLY.
9133 [153]"CLRTHE BONUS POINTS ARE AS FOLLOWES:"
9134 [153]"62 OR LESS ADD  0 BONUS PTS.":[153]"63 - 70    ADD 35 BONUS PTS.
9135 PRINT"71 - 77    ADD 55 BONUS PTS.":PRINT"78 OR MORE ADD 75 BONUS PTS.[154]"
9138 PRINT"TO CONTINUE HIT SPACE BAR[154]"
9139 GETRP$:IFRP$<>" "THEN9139
9140 PRINT"[147]"SPC(13)"SECOND KISMET":PRINTSPC(13)"[184][184][184][184][184][184][184][184][184][184][184][184][184][154]"
9141 PRINT"IF A PLAYER ROLLS A SECOND KISMET AND"
9142 PRINT"FINDS A SCORE IN THE KISMET BOX, THEN"
9143 PRINT"ANY APPROPRIATE SCORING OPTION MAY BE"
9144 PRINT"USED. ALL OTHER PLAYERS WILL BE GIVEN A"
9145 PRINT"'0' IN THE VACANT BOX NEAREST THE TOP"
9146 PRINT"AND LOSE ONE TURN. THE PLAYER ROLLING"
9147 PRINT"THE SECOND KISMET ROLLS AGAIN. THE SAME"
9148 PRINT"PROCEDURE APPLIES FOR ANY ADDITIONAL"
9149 PRINT"KISMETS.
9150 [153]"TO CONTINUE HIT SPACE BARCONT"
9151 [161]RP$:[139]RP$[179][177]" "[167]9151
9152 [153]"LOAD"[166]10)"QUITTING THE GAME":[153][166]10)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRCONT"
9153 [153]"IF A PLAYER DECIDES TO QUIT IN A GAME,"
9154 [153]"HE MAY DO SO WHEN ASKED 'CLRWHERECONT' BY"
9155 [153]"TYPING 'CLRQCONT'. IN A ONE PLAYER GAME- THE"
9156 [153]"GAME ENDS IMMEDIATELY."
9157 [153]"FOR A 2 TO 4 PLAYER GAME-THAT PLAYERS"
9158 [153]"SCORE SHEET IS ERASED AND THE SCORE"
9159 [153]"SHEET FOR THE NEXT PLAYER WILL APPEAR"
9160 [153]"FOR A FEW SECONDS. GAME PLAY WILL"
9161 [153]"CONTINUE ON FROM THERE.
9162 PRINT"TO CONTINUE HIT SPACE BAR[154]"
9163 GETA$:IFA$<>" "THEN9163
9165 PRINT"[147]"SPC(10)"[156]END OF THE GAME[154]":PRINTSPC(10)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][154]"
9166 PRINT"AFTER THE LAST PLAYER HAS FILLED ALL"
9167 PRINT"FIFTEEN OF SCORING OPTIONS, THE GAME"
9168 PRINT"WILL END AND SHOW ALL PLAYERS FINAL"
9169 PRINT"SCORES. THE WINNING SCORE WILL BE"
9170 PRINT"DISPLAYED AT THE TOP OF THE SCREEN."
9190 PRINT"THAT'S ALL YOU NEED TO KNOW!"
9191 PRINTSPC(12)"SO, HAVE FUN!!"
9195 PRINT"TO CONTINUE HIT SPACE BAR[154]"
9196 GETRP$:IFRP$=" "THENRETURN
9197 GOTO9196